home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C128Telecom / CRAB'SDOC.SDA / CONVERT V2.1 (.txt) next >
Commodore BASIC  |  2019-04-13  |  4KB  |  21 lines
  1. 0 V$="CONVERT V2.1,P":::::GOTO7
  2. 1 H=INT(A/256):L=A-H*256:PRINT#15,"M-R"CHR$(L)CHR$(H):GET#15,A$:A=ASC(A$+CHR$(.)):RETURN
  3. 2 PRINT#15,"U1:"2;0;T;S:RETURN
  4. 3 PRINT#15,"U2:"2;0;T;S:RETURN
  5. 4 PRINT#15,"B-P:"2;PS:RETURN
  6. 5 GET#2,A$:A$=LEFT$(A$+CHR$(.),1):AA=ASC(A$):RETURN
  7. 6 PRINT#2,CHR$(A);:RETURN
  8. 7 DIMD$(29):POKE808,234:PRINT"[147]WAIT":GOSUB13
  9. 8 T=ASC(D$(1)):S=ASC(D$(2)):FORI=1TO3:GOSUB2:GOSUB5:T=AA:GOSUB5:S=AA:NEXT
  10. 9 GOSUB2:GOSUB5:P1=AA:GOSUB5:P2=AA:GOSUB2:A=.:GOSUB6:A=255:GOSUB6:GOSUB3
  11. 10 D$(.)=CHR$(131):D$(1)=CHR$(P1):D$(2)=CHR$(P2)
  12. 11 D$(19)=CHR$(T):D$(20)=CHR$(S):D$(21)=CHR$(.):D$(22)=CHR$(6)
  13. 12 D$(23)=CHR$(87):D$(28)=CHR$(ASC(D$(28))-3):FORI=24TO26:D$(I)="":NEXT:GOTO18
  14. 13 OPEN15,8,15,"I0:":OPEN2,8,2,"#":OPEN3,8,3,V$:CLOSE3
  15. 14 INPUT#15,P$,Q$:IFP$>"19"THEN20
  16. 15 A=656:GOSUB1:DS=A:A=660:GOSUB1:DO=A:T=18:S=DS
  17. 16 GOSUB2:PS=DO:GOSUB4:FORI=.TO29:GOSUB5:D$(I)=A$:NEXT:RETURN
  18. 18 T=18:S=DS:GOSUB2:PS=DO:GOSUB4:FORI=.TO29:PRINT#2,LEFT$(D$(I),1);:NEXT
  19. 19 GOSUB3:Q$="DONE
  20. 20 [153]Q$:[160]2:[160]15:[151]808,237
  21.